home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / olv100.zip / RBBS.ZIP / DOORCVT.BAS next >
BASIC Source File  |  1991-07-11  |  3KB  |  99 lines
  1. A$ = "╔════════════════════════════╗"
  2. PRINT A$
  3. A$ = "║▓▓▒▒▒     DOORCVT     ▒▒▒▓▓▓║"
  4. PRINT A$
  5. A$ = "║ Converting DoorWay File... ║"
  6. PRINT A$
  7. A$ = "╚════════════════════════════╝"
  8. PRINT A$
  9.  
  10. OPEN "DORINFO1.DEF" FOR INPUT AS #1
  11. LINE INPUT #1, BBSNAME$
  12. LINE INPUT #1, SYSOPFIRST$
  13. LINE INPUT #1, SYSOPLAST$
  14. LINE INPUT #1, COMPORT$
  15. LINE INPUT #1, BAUDRATE$
  16. LINE INPUT #1, NETWORK$
  17. LINE INPUT #1, USERFIRST$
  18. LINE INPUT #1, USERLAST$
  19. LINE INPUT #1, CITYSTATE$
  20. LINE INPUT #1, GRAPHICSMODE$
  21. LINE INPUT #1, SECURITY$
  22. LINE INPUT #1, TIMELEFT$
  23. LINE INPUT #1, FOSSIL$
  24. CLOSE #1
  25.  
  26. OPEN "DOOR.SYS" FOR OUTPUT AS #2
  27.  
  28. PRINT #2, COMPORT$ + ":"                'COMM PORT
  29.  
  30. BAUD$ = LEFT$(BAUDRATE$, 5)
  31. IF VAL(BAUD$) = 300 THEN BTMP$ = "300"
  32. IF VAL(BAUD$) = 1200 THEN BTMP$ = "1200"
  33. IF VAL(BAUD$) = 2400 THEN BTMP$ = "2400"
  34. IF VAL(BAUD$) = 9600 THEN BTMP$ = "9600"
  35. IF VAL(BAUD$) = 19200 THEN BTMP$ = "19200"
  36. PRINT #2, BTMP$                        'BAUD RATE
  37.  
  38. X% = 0
  39. DO WHILE TST$ <> ","
  40.      X% = X% + 1
  41.      TST$ = MID$(BAUDRATE$, X%, 1)
  42. LOOP
  43.  
  44. X% = X% + 1
  45. DO WHILE TST$ <> ","
  46.      TST$ = MID$(BAUDRATE$, X%, 1)
  47.      X% = X% + 1
  48. LOOP
  49.  
  50. X% = X% + 2
  51. PARITY$ = MID$(BAUDRATE$, X%, 1)
  52.  
  53. PRINT #2, PARITY$                       'PARITY VALUE
  54.  
  55. PRINT #2, " "                           'DUMMY NODE NUMBER
  56. PRINT #2, BTMP$                         'DUMMY DTE RATE
  57. PRINT #2, "Y"                           'SCREEN DISPLAY
  58. PRINT #2, "Y"                           'PRINTER TOGGLE
  59. PRINT #2, "Y"                           'PAGE BELL
  60. PRINT #2, "Y"                           'CALLER ALARM
  61.  
  62. PRINT #2, USERFIRST$ + " " + USERLAST$  'USER NAME
  63. PRINT #2, CITYSTATE$                    'CALLING FROM
  64. PRINT #2, " "                           'DUMMY HAME FONE
  65. PRINT #2, " "                           'DUMMY WORK FONE
  66.  
  67. PRINT #2, ""                            'DUMMY PASSWORD
  68.  
  69. PRINT #2, SECURITY$                     'SECURITY LEVEL
  70.  
  71. PRINT #2, " "                           'DUMMY TIMES ON
  72.  
  73. PRINT #2, " "                           'DUMMY LAST ON DATE
  74.  
  75. PRINT #2, STR$(VAL(TIMELEFT$) * 60)     'TIME LEFT IN SECONDS
  76. PRINT #2, TIMELEFT$                     'TIME LEFT IN MINUTES
  77.  
  78. IF GRAPHICSMODE$ <> " 2" THEN COLR$ = "GR" ELSE COLR$ = "NG" 'GRAF MODE
  79. PRINT #2, COLR$
  80.  
  81. PRINT #2, "23"                          'PAGE LEN
  82.  
  83. PRINT #2, "N"                           'USER MODE = NOVICE
  84.                                         'CONF REG IN
  85. PRINT #2, " "                           'CONF EXITED FROM
  86. PRINT #2, " "                           'USER EXP DATE
  87. PRINT #2, " "                           'USER FILE REC NUM
  88. PRINT #2, " "                           'DEFAULT PROTOCOL
  89. PRINT #2, " "                           'TOTAL UPLOADS
  90. PRINT #2, " "                           'TOTAL DOWNLOADS
  91. PRINT #2, " "                           'TODAY DOWNLOAD
  92. PRINT #2, " "                           'DOWNLOAD LIMIT
  93. PRINT #2, " "
  94.  
  95. CLOSE #2
  96.  
  97. END
  98.  
  99.